home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / src / X11 / tclMotif-1.4 / tests / send.test < prev    next >
Text File  |  1995-06-29  |  615b  |  40 lines
  1.  
  2. if {[string compare test [info procs test]] == 1} then \
  3.   {source defs}
  4.  
  5. # set VERBOSE 1
  6. # set INTERACTIVE 1
  7.  
  8.  
  9. #############
  10. # starts here
  11. #############
  12.  
  13. xtAppInitialize 
  14. . setValues -allowShellResize true
  15.  
  16. xmLabel .label managed
  17.  
  18. . realizeWidget
  19.  
  20. ######################
  21. # List element setting
  22. ######################
  23.  
  24. test send-1.1 {send to oneself} {
  25.     . getValues -title title
  26.     send $title ".label setValues -labelString hello"
  27.     .label getValues -labelString label
  28.     set label
  29. } {hello}
  30.  
  31.  
  32. #############
  33. # Finish up #
  34. #############
  35. if { ! $INTERACTIVE} {
  36.   .label destroyWidget
  37. } else {
  38.   . mainLoop
  39. }
  40.